package WIAB::Controller::Blog;

use strict;
use warnings;
use base 'Catalyst::Controller';
use File::Finder;
=head1 NAME

WIAB::Controller::Blog - Catalyst Controller

=head1 SYNOPSIS

See L<WIAB>

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut

sub auto : Private {
    my ($self, $c) = @_;
    $c->stash->{is_blog} = 1;
}
    
sub default : Path {
    my ($self, $c) = @_;
    my $posts = [ ];
    ($c->stash->{Content}, $c->stash->{Error}) =
        $c->model('Blog')->get_xhtml_posts($c->req->args);
    $c->stash->{template} = 'content.tt';
}


=head1 AUTHOR

Kieren Diment

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;
